package body SporadicTask is

   task body ST is

   begin

      loop

         Ada.Synchronous_Task_Control.Suspend_Until_True(SO.SO);
         Ada.Text_IO.Put_Line("Activacao do cod suspenso..");

      end loop;
   end ST;
end SporadicTask;
